10 POKE53281,14 :T$="NO NAME"
20 PRINT"[147]FILE NAME":INPUTT$:PRINT"              PLEASE WAIT":T$=LEFT$(T$,14)
30 N=1000:P=1:X=(N+1)/10:DIMS$(N):R$=" LINE#":GOSUB810:GOTO80
40 K=0
50 Q=0:PRINT"[147]CATALOG: ";T$"":PRINT"PAGE
60 [129]J[178]K[164]N:[139][198](S$(J))[178]18[167][153]"CMD"[181](J[173]10[170]1);S$(J):Q[178]Q[170]1:[139]Q[177]10[167]80
70 [130]J
80 [141]260:[139]A[178]0[167]80
90 [145]A[137]40,120,190,220,290,360,410,670,470,520,310
100 [139]J[179]N[170]1[167]K[178]J:[137]50
110 [137]40
120 [153]"PAGE#":[133]A$:P[178][197](A$):[141]270:[139]A[179][177]0[167]90
130 [139]P[179]1[176]P[177]X[167][153]"ONONON":[137]120
140 [153]"LOADPAGE"P;T$"":[129]I[178]0[164]9:L[178](P[171]1)[172]10[170]I:[153]"CMD"L;S$(L):[130]
150 [141]260:[139]A[178]0[167]150
160 [139]A[179][177]12[167]90
170 P[178]P[170]1:[139]P[177]X[167]P[178]1
180 [137]140
190 A$[178]"-1":[153]"ENTER"R$:[133]A$:J[178][197](A$):[141]270:[139]A[179][177]0[167]90
200 [139]J[179]0[176]J[177][181](X)[172]10[170]1[167][153]"ONONONONON":[137]190
210 [133]S$(J):[137]1160
220 A$[178]"-1":[153]"INSERT"R$:[133]A$:J[178][197](A$):[141]270:[139]A[179][177]0[167]90
230 [139]J[179]0[176]J[177][181](X)[172]10[170]1[167][153]"ONONONONON":[137]220
240 [153]"ENTRY":[133]D$:[153]"INSERTING":[139]R[178]N[167]140
250 [141]860:[129]I[178]KK[164]J[170]1[169][171]1:S$(I)[178]S$(I[171]1):[130]:S$(J)[178]D$:[137]1160
260 E$[178]"C,P,E,I,N,S,L,H,K,A,?WAIT ":[153][163]9)""E$"CMDONON":[141]630
270 A[178]0:[129]I[178]1[164]13:[139][202](E$,I[172]2[171]1,1)[178]A$[167]A[178]I:I[178]13
280 [130]I:[142]
290 [141]660:[139]A$[179][177]"Y"[167]40
300 [153]"NEW FILE NAME":[133]T$:[141]810:[137]40
310 [153]"LOADCWAITATALOG":[153]"CALL PWAITAGE":[153]"IWAITNSERT"R$
320 [153]"EWAITNTER"R$:[153]"KWAITILL"R$:[153]"AWAITLPHABETIZE":[153]"NWAITEW FILE"
330 [153]"LWAITOAD FROM TAPE OR DISC":[153]"SWAITAVE TO TAPE OR DISC"
340 [153]"?WAIT DEFINITIONS":[153]"HWAIT LIST TO PRINTERON":[141]260:[139]A[178]0[167]310
350 [137]90
360 [153]"LOADSTOPSAVE TO TAPE OR DISC":[141]660:[139]A$[179][177]"Y"[167]40
370 [153]"DWAITISC OR TWAITAPE?":[141]630:[139]A$[178]"T"[167]400
380 [139]A$[179][177]"D"[167]40
390 [159]2,8,2,"@0:"[170]T$[170]" (null),S,W":J[178]2:[137]890
400 [159]1,1,1,T$:J[178]1:[137]890
410 [153]"LOADLOAD FROM TAPE OR DISC":[141]660:[139]A$[179][177]"Y"[167]40
420 [153]"DWAITISC OR TWAITAPE?":[141]630:[139]A$[178]"T"[167]460
430 [139]A$[179][177]"D"[167]40
440 [141]970:[153]"FILE NAME?":[133]N$:[139]N$[178]""[167]40
450 [159]2,8,2,"0:"[170]N$[170]" (null),S,R":J[178]2:[137]930
460 [159]1,1,0:J[178]1:[137]930
470 [153]"KILL"R$:[133]A$:J[178][197](A$):[141]270:[139]A[179][177]0[167]90
480 [139]J[179]0[176]J[177]N[167][153]"ONON":[137]470
490 [129]I[178]J[164]N[171]1:[139]S$(I)[178]"TAN"[175]S$(I[170]1)[178]"TAN"[167]I[178]N[171]1:[137]510
500 S$(I)[178]S$(I[170]1):[141]650
510 [130]:S$(N)[178]"TAN":[137]140
520 [153]"ALPHABETIZE  ";:[141]820:U[178][197](A$):[139]U[179]0[176]U[177]N[167][137]80
530 [139][202](S$(U),1,1)[178]""[167]U[178]U[170]1
540 [141]830:K[178]0:[129]I[178]U[164]KK:[139][200]((S$(I)),1)[178]""[167]K[178]1:NN[178]I[171]1:I[178]KK
550 [130]I:[139]K[178]1[167]570
560 NN[178]KK
570 I[178]0
580 J[178]U:[139]I[178]NN[171]U[167]140
590 [139]J[178]NN[171]I[167]620
600 [139]S$(J)[177]S$(J[170]1)[167]TP$[178]S$(J):S$(J)[178]S$(J[170]1):S$(J[170]1)[178]TP$
610 J[178]J[170]1:[137]590
620 I[178]I[170]1:[151]53280,[181]([187](K)[172]15[170]1):[137]580
630 [161]A$:[139]A$[178]""[167]630
640 [142]
650 [153]""[163]30);I:[142]
660 [153]"ARE YOU SURE? Y/N":[141]630:[142]
670 [153]"LOADHARD COPY":[141]660:[139]A$[179][177]"Y"[167]40
680 [153]"ENTIRE FILE?":[141]630:[139]A$[178]"Y"[167]F[178]0:M[178]N:[137]710
690 [141]820:F[178][197](A$):[139]F[179]0[176]F[177]N[137]670
700 [153]"ENDING"R$:[133]A$:M[178][197](A$):[139]M[179]0[176]M[177]N[176]M[178][179]F[167]670
710 [159]4,4:A$[178]"":[129]I[178]1[164][181]((40[171][195](T$))[173]2)
720 A$[178]A$[170]" ":[130]I:A$[178]A$[170]"WAIT":[152]4,[199](14)A$[170]T$[170]F$[199](10)[199](10)
730 LL[178]4:[129]I[178]K[164]N:[139][200](S$(I),1)[178]""[167]760
740 [139]S$(I)[179][177]"TAN"[167][152]4,[199](15)"     "S$(I)[199](10):LL[178]LL[170]2
750 [137]790
760 A$[178]"":[129]KK[178]7[164][195](S$(I))[172]6:A$[178]A$[170][199](255):[130]KK
770 [152]4,"     "G$[170]A$:[152]4,F$[170]"     "[170]S$(I)[170]G$
780 [152]4,F$[170]"     "[170]G$[170]A$[170]F$[199](10):LL[178]LL[170]4
790 [139]LL[177]59[167][129]NL[178]LL[164]72:[152]4,[199](10);:[130]NL:[152]4,"":LL[178]3
800 [130]I:[160]4:[137]40
810 [129]J[178]0[164]N:S$(J)[178]"TAN":[130]J:[142]
820 [153]"STARTING"R$:[133]A$:[142]
830 [129]I[178]N[164]0[169][171]1:[139]S$(I)[179][177]"TAN"[167]KK[178]I:I[178]0:[137]850
840 KK[178]I
850 [130]I:[142]
860 [129]I[178]J[170]1[164]N:[139]S$(I)[178]"TAN"[167]KK[178]I:I[178]N:[137]850
870 KK[178]I
880 [130]I:[142]
890 [129]I[178]N[164]0[169][171]1:K[178]I:[139]S$(I)[179][177]"TAN"[167]I[178]0
900 [130]I:K[178]K[170]1
910 [152]J,T$[170]" (null)":[152]J,K:[129]I[178]0[164]K
920 [152]J,S$(I):[141]650:[130]:[160]J:[137]40
930 [132]J,N$:[139][201](N$,2)[179][177]" (null)"[167][153]N$" NOT FOUND":[141]630:[160]J:[137]40
940 T$[178]N$:T$[178][200](T$,[195](T$)[171]2):[153]"FOUND "T$:[132]J,K
950 [139]K[177]N[167][153]"WARNING:":[153]"FILE ORIGINATED FROM  VIC WITH LARGER MEMORY":K[178]N
960 [129]I[178]0[164]K:[132]J,S$(I):[141]650:[130]:[160]J:[137]40
970 [153]"LOADDISC FILE LISTING? ":[141]630:[139]A$[179][177]"Y"[167][142]
980 [153]"LOADSCANNING DISC"
990 [159]1,8,0,"$0"
1000 [161]#1,A$,B$
1010 [161]#1,A$,B$
1020 [161]#1,A$,B$
1030 C[178]0
1040 [139] A$[179][177]""[167]C[178][198](A$)
1050 [139] B$[179][177]""[167]C[178]C[170][198](B$)[172]256
1060 D$[178]D$[170]""[170][202]([196](C),2)[170]"WAIT"
1070 [161]#1,B$:[139]ST[179][177]0[167][160]1:[153]:[142]
1080 [139] B$[179][177][199](34)[167]1070
1090 [161]#1,B$:[139] B$[179][177][199](34)[167]D$[178]D$[170]B$:[137]1090
1100 [161]#1,B$:[139]B$[178][199](32)[167]1100
1110 C$[178]""
1120 C$[178]C$[170]B$:[161]#1,B$:[139]B$[179][177]""[167]1120
1130 [139][201](D$,1)[178]"(null)"[167][153]D$
1140 D$[178]"":[137]1010
1150 Y[178]Y[171]1:[129]I[178]0[164]C:C$(I,P%(L))[178]"TAN":[130]I:[129]I[178]L[164]Y:P%(I)[178]P%(I[170]1):[130]I:L[178]L[171]1:[142]
1160 [139][200](S$(J),1)[178]"_"[167]S$(J)[178]""[170][201](S$(J),[195](S$(J))[171]1)
1170 [137]140